home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / export.dir / 00001.ls next >
Encoding:
Text File  |  1995-07-11  |  453 b   |  17 lines
  1. on startMovie
  2.   global tSprite, rValue, myWindow
  3.   set cnum to the number of cast "clipText"
  4.   pasteClipBoardInto(cast "clipText")
  5.   set the name of cast cnum to "clipText"
  6.   set the text of cast "theText" to the text of cast "clipText"
  7.   set tSprite to 2
  8.   puppetSprite(tSprite, 1)
  9.   set the editableText of sprite tSprite to 1
  10.   set the selStart to 0
  11.   set the selEnd to 0
  12.   set i to 4
  13.   repeat with i = 4 to 8
  14.     puppetSprite(i, 1)
  15.   end repeat
  16. end
  17.